home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / MCL on PC / DOC-EMUL.TXT next >
Encoding:
Text File  |  1994-09-12  |  6.4 KB  |  250 lines  |  [TEXT/ttxt]
  1. Partial incomplete Doc for MCL graphics in ACL/PC
  2. Code written by Stefan Bamberger and Karsten Poeck
  3. Original MCL code written by Stefan Bamberger, Ute Gappa, Klaus Goos, Karsten Poeck and others
  4. Comments to
  5.  
  6. ------------------------------------------------------
  7. | Karsten A. Poeck
  8. | Lehrstuhl fuer Informatik VI
  9. | Universitaet Wuerzburg
  10. | Allesgrundweg 12
  11. | 97218 Gerbrunn
  12. | Germany
  13. | 
  14. | E-mail: poeck@informatik.uni-wuerzburg.de
  15. | Tel. ++ 49 931 70561 18
  16. | Fax  ++ 49 931 70561 20
  17. ------------------------------------------------------
  18.  
  19.  
  20. Introduction: In MCL windows, dialog-items, menus and menu-items
  21. are clos objects that can be created with calls to make-instance.
  22. All interface stuff is done with generic methods that one
  23. can shadow, and specialize.
  24.  
  25. This is not the case in ACL/PC. Make-instance cannot be called
  26. directly, the interface stuff are functions, not everything can be shadowed
  27. and menu-items are structures, some initargs cannot be specified as :default-initargs
  28. (flames to procyon)
  29.  
  30. To allow portabel code we introduced an layer on top of ACL/PC
  31. Common Graphics that is totally object oriented and has the interface methods
  32. of MCL. Since we have not been able to solve the make-instance problem we introduced
  33. five auxuliaray methods (The names are all in German)
  34.  
  35. m->a=erzeuge-dialog-item (class &rest args)
  36. creates a dialog-item (widget in Common Graphics)
  37.  
  38. m->a=erzeuge-fenster (class &rest args)
  39. creates a non modal window
  40.  
  41. m->a=erzeuge-modal-fenster
  42. creates a window to be used as a modal-dialog
  43.  
  44. m->a=erzeuge-menu
  45. creates a menu (Warning the menubar in ACL/PC is a strange thing documented very unclearly)
  46.  
  47. m->a=erzeuge-menu-item
  48. to create an menu-item (Warning, the menu-items in ACL/PC are structures. To allow generic functions
  49. we create dummy clos-objects and link them to the structures. The interface methods called
  50. on the clos-objects then call the functions of the structures
  51.  
  52. On the macintosh all these methods should be defined as
  53. defun m->a=erzeuge-menu (klasse &rest args)
  54.   (apply #'make-instance klasse args))
  55.  
  56. (defun m->a=erzeuge-menu-item (klasse &rest args)
  57.   (apply #'make-instance klasse args))
  58.  
  59. (defun m->a=erzeuge-fenster (klasse &rest args)
  60.   (apply #'make-instance klasse args))
  61.  
  62. (defun m->a=erzeuge-modal-fenster (klasse &rest args)
  63.   (apply #'make-instance klasse args))
  64.  
  65. (defun m->a=erzeuge-dialog-item (klasse &rest args)
  66.   (apply #'make-instance klasse args))
  67.  
  68.  
  69. We ported our library of windows, dialog-items, menus and menu-items so the names are subclasses
  70. of the MCL-ones.
  71. !Warning, all this is port on demand, we have omitted a lot of features!
  72. Essentially we provide:
  73.  
  74. dialog-items;;;;;;;;;;;;;: in the file dos-at
  75. mac-dialog-item-mixin understands
  76. :view-size
  77. :view-position
  78. :view-font ;warning, the font format in ACL/PC is different
  79. :view-nick-name
  80. :view-container
  81. :dialog-item-enabled-p
  82.  
  83.  
  84. Emulated methods for dialog-items
  85. set-view-container
  86. ;When set-view-container is called and the dialog-item does not have a size
  87. ;a default size is computed depending on the dialog-item-text
  88.  
  89. dialog-item-enable
  90. dialog-item-enabled-p
  91. dialog-item-disable
  92. set-view-position
  93. view-size
  94. set-view-size
  95. view-position
  96. set-dialog-item-text
  97. dialog-item-text
  98. view-container
  99. special dialog items
  100. *B-STATIC-TEXT-DIALOG-ITEM*
  101. :dialog-item-text
  102.  
  103. *b-zahl* (additional  widget to represent numbers)
  104. :f-nach-taste (function-called-after-a-key-is-pressed)
  105.  
  106. *b-text* (additional  widget to represent text, aka editable-text-dialog-item )
  107. :f-nach-taste
  108.  
  109. *b-radio-button-dialog-item*
  110. :dialog-item-text
  111. :radio-button-cluster
  112. :dialog-item-action
  113. :radio-button-pushed-p
  114.  
  115. Methods:
  116. radio-button-push
  117. radio-button-unpush
  118. radio-button-pushed-p
  119.  
  120. *b-check-box-dialog-item*
  121. :view-nick-name
  122. :dialog-item-text
  123. :dialog-item-action
  124. :check-box-checked-p
  125.  
  126. Methods:
  127. check-box-check
  128. check-box-uncheck
  129. check-box-checked-p
  130.  
  131. *b-button-dialog-item*
  132. :dialog-item-text
  133. :dialog-item-action
  134.  
  135. *b-ok-button*
  136.  
  137. *b-abbrechen-button* (A cancel button)
  138.  
  139. *bb-sequence-dialog-item*
  140. :range the elements
  141. :text-des-tabellenelements (A function to give the string of the elements
  142. :f-pop-up-menu A function returning a pop-up
  143.  
  144. Methods
  145. set-table-sequence
  146. table-sequence
  147.  
  148. More advanced dialog-items
  149. *b-auswahl-light*
  150. A composed dialog-items that consists of several radio-buttons or check-buttons
  151. aka (accept 'member or 'subset in CLIM)
  152.  
  153. :wert initial value
  154. :f-Text
  155. :Anordnung-Auswahlelemente  (orientation, not implemented yet)
  156. :selektionstyp (selectiontype :multiple or :single)
  157. :f-bei-Wertaenderung (Function called when the value is changed)
  158.  
  159. *b-bild-view* A widget for bmp-pictures with sensitive areas
  160. *b-bild&text-dialog-item* A widget for bmp-pictures with sensitive areas and correspond texts
  161.  
  162. Shows how to create custom gadgets in ACL/PC (using widget-device)
  163. A Problem is that the events get called on the pane and not on the widget
  164. ;;;;;
  165. What we still can'T do
  166. use view-draw-contens and view-click-event-handler for widgets
  167.  
  168. Windows;;;;
  169.  
  170. *b-window*
  171. provides view-draw-contens and view-click-event-handler and most of the mac-methods
  172. Modal-dialog and return-from-modal-dialog also
  173.  
  174. :view-size
  175. :view-position
  176. :view-font ;warning, the font format in ACL/PC is different
  177. :view-nick-name ;bug
  178. :view-container ;bug
  179. :window-title
  180.  
  181. Methods:
  182. add-subviews
  183. remove-subviews
  184. set-window-title
  185. window-title
  186. window-hide
  187. window-select
  188. window-show
  189. window-close
  190. view-container
  191. set-view-container
  192. set-view-font
  193. view-font
  194. set-view-position
  195. view-size
  196. set-view-size
  197. view-position
  198. subviews
  199. modal-dialog
  200.  
  201. *b-fenster+scroller*
  202. A window with a *bb-sequence-dialog-item* that adjust its size to the window
  203.  
  204. *b-button-window*
  205. :buttons A window with a bottom button line
  206.  
  207. *b-graphics-window*
  208. A window with a scrollable sub-window (aka ccl::scroller-view) and the bottom button line
  209.  
  210. *b-hierarchie-window-light* A portable class browser
  211.  
  212. *b-konfigurierungsdialog*
  213. A configuration dialog, long doc in german, examples in beispiel.lsp, code in b-konfig
  214.  
  215.  
  216. ;menus and menu-items
  217. *b-menu* (with b=pop-up-menue-aufklappen used as a pop-window)
  218. :menu-title
  219.  
  220. Methods:
  221. menu-update
  222. add-menu-items
  223. remove-menu-items
  224. menu-installed-p
  225. menu-deinstall
  226. menu-install
  227. menu-enable
  228. menu-disable
  229.  
  230. set-menubar
  231. menubar
  232.  
  233. *windows-menu* Shows all active windows
  234.  
  235. *b-menu-item*
  236. :menu-item-title
  237. :menu-item-value
  238. :menu-item-action
  239. :disabled
  240. :command-key
  241.  
  242. Methods:
  243. menu-item-update
  244. menu-item-enable
  245. menu-item-disable
  246. set-menu-item-title-portable
  247. set-menu-item-check-mark
  248. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  249. The load-file for all the stuff is in bib-lade.lisp. good luck
  250.